home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH3 / SRC / GETENTRY.BAS < prev    next >
BASIC Source File  |  1996-04-19  |  868b  |  21 lines
  1. Attribute VB_Name = "GetEntry"
  2. Option Explicit
  3.  
  4. Global Const RASTERCAPS = 38    ' Raster device capabilities.
  5. Global Const RC_PALETTE = &H100 ' Has palettes.
  6.  
  7. Type PALETTEENTRY
  8.     peRed As Byte
  9.     peGreen As Byte
  10.     peBlue As Byte
  11.     peFlags As Byte
  12. End Type
  13.  
  14. #If Win32 Then
  15.     Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
  16.     Declare Function GetPaletteEntries Lib "gdi32" (ByVal hPalette As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As Long
  17. #Else
  18.     Declare Function GetDeviceCaps Lib "GDI" (ByVal hdc As Integer, ByVal nIndex As Integer) As Integer
  19.     Declare Function GetPaletteEntries Lib "GDI" (ByVal hPalette As Integer, ByVal wStartIndex As Integer, ByVal wNumEntries As Integer, lpPaletteEntries As PALETTEENTRY) As Integer
  20. #End If
  21.